Create more elegant reports for your clients

We will write code to get you the data you need - then automate reporting tasks like summaries, plots, lists and make them downloadable for you clients

Foo

#establish database connection
  con <-
    dbConnect(
      RMySQL::MySQL(),
      host = "mysql.query.s44",
      username = "elessert",
      password = .elessert_pass,
      port = 3306,
      dbname = "s44_prod_eden"
    )
  #get the data from SQL
  
  LoginData <-
    dbGetQuery(
      con,
      "select c.name, u.company_id, u.job_title, u.first_name, u.last_name, u.total_logins, u.last_login
      from user u
      join company c
      on u.company_id = c.id
      where u.first_name not like '%s44%'
      and u.first_name not like '%test%'
      and u.last_name not like '%s44%'
      and u.first_name not like '%task%'
      and u.email_address not like '%@sourceintelligence%'
      and u.email_address not like '%@s%44%'
      and u.email_address like '%@%'
      and u.company_id != 1
      and u.total_logins not like '%null%'
      order by total_logins asc;"
    )
  
  LoginData %>% 
    group_by(name) %>% 
    mutate(logins = sum(total_logins)) %>%
    arrange(desc(logins)) %>%
    select(name, logins) %>% 
    unique %>%
    head(15) %>% pander
name logins
Coca-Cola 6907
The Home Depot, Inc. 3355
VF Corporation 1434
Schneider Electric 1417
Macy’s, Inc. 1183
Lab 126 1072
Cabela’s Inc. 962
SCHLUMBERGER 869
Perry Ellis International 857
Multi-Fineline Electronix Inc 813
Nordstrom, Inc. 762
GUESS?, Inc. 721
Johnson & Johnson Family of Companies 678
MSC Industrial Direct Co., Inc. 652
ANN INC. 608

You do not have to include the code

here is the same example without code

Including Plots

Here is where we can really shine - customers can get plots that they could never make in Excel, for example:

Note that we can also create presentation ready graphs for the customer contacts that need them for their internal reports

We can do simple lists as well - like a report of who has not yet completed a task by tags

## list()
## data frame with 0 columns and 0 rows

Other items that can help

add maps

add custom branding to plots

add humor

spongebob cats

moar-cats

moar-cats

travolta

travolta

add lists

  • here
  • is
  • a bulleted
  • list

I can do this for you or you can do it yourself with a little effort

markdown

Rmarkdown